home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak 2 - Disc 2 / Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso / Chat---IRC / TURBOIRC.ZIP / data1.cab / TurboIRC_Scripts / EHANGMANGAME.txt < prev    next >
Text File  |  1999-05-05  |  2KB  |  111 lines
  1. // Hang Man Game TurboIRC Script
  2. // By Chourdakis Michael ⌐ 1998
  3.  
  4.  
  5. int Size = GetInt("Word","Size",0,".\\HGWORD.INI")
  6. string Given = strupr("$4")
  7. string ToShow = ""
  8. string Z = ""
  9. string mL = ""
  10. int F = 0
  11. string KrZ = ""
  12. int LP = 0
  13. int Found = 0
  14.  
  15. if (strnicmp("$3*",":!letter ",8)== 0)
  16.  goto LetterChoice
  17. endif
  18.  
  19. if (strnicmp("$3*",":!word ",6)== 0)
  20.  goto WordChoice
  21. endif
  22.  
  23. // no relative text
  24. return
  25.  
  26. :WordChoice
  27.  
  28. string VW = strupr("$4")
  29. if (VW==GuessWord)
  30.  /display $channel ConGraTuLaTiOnS you found the SecReT Word was %GuessWord% !
  31.  /display $channel *******GAME OVER*******
  32.  /destroystaticvariable GuessWord
  33.  /destroystaticvariable HangTries
  34.  /_event HANGMANGAME 0 0 0 *
  35.  return
  36. else
  37.  /display $channel BooHaHa It is NOT that word !    
  38.  HangTries += 1
  39.  goto NotFound
  40. endif
  41.  
  42.  
  43. :LetterChoice
  44.  
  45. // in a game !
  46. // $4 has the letter
  47. // Is it found in the GuessWord ?
  48.  
  49. if (FindStringPos(GuessWord,Given)==-1)
  50.  // NOT FOUND !!!
  51.  /display $channel BooHaHa Letter %Given% is NOT in the hidden word !    
  52.  HangTries += 1
  53.  goto NotFound
  54. else 
  55.  // FOUND !
  56.  goto FoundLetter
  57. endif
  58.  
  59. :NotFound
  60. if (HangTries == 10)
  61.  /display $channel UHHHOH you didn't find the SecReT Word was %GuessWord% !
  62.  /display $channel *******GAME OVER*******
  63.  /destroystaticvariable GuessWord
  64.  /destroystaticvariable HangTries
  65.  /_event HANGMANGAME 0 0 0 *
  66.  return
  67. else
  68.  int V = 10 - HangTries
  69.  /display $channel WaTcH It You have OnLy %V% tries left !
  70. endif
  71.  
  72. goto ShowWordStatus
  73.  
  74. :FoundLetter
  75. /display $channel WoW Letter %Given% is found in the hidden word !    
  76.  
  77. for (LP = 0 ; LP < Size ; LP += 1)
  78.  if (strncmp(GuessWord + LP,Given,1) == 0)
  79.    // it is in place
  80.    Z = sprintf("Letter%i",LP)
  81.    SetString("Word",Z,"1",".\\HGWORD.INI")
  82.  endif
  83. endfor
  84.  
  85.  
  86. :ShowWordStatus
  87.  
  88. Found = 0
  89. for (LP = 0 ; LP < Size ; LP += 1)
  90.  KrZ = sprintf("Letter%i",LP)
  91.  mL = GetString("Word",KrZ,"0",".\\HGWORD.INI")
  92.  F = atoi(mL)
  93.  if (F == 0)
  94.   ToShow = strcat(ToShow,"_ ")
  95.   Found = 1
  96.  else
  97.   ToShow = strncat(ToShow,GuessWord + LP,1)
  98.   ToShow = strcat(ToShow," ")
  99.  endif
  100. endfor
  101.  
  102. /display $channel Word Status : %ToShow%    
  103. if (Found == 0)
  104.  // found ALL !
  105.  /display $channel ConGraTuLaTiOnS you found the SecReT Word was %GuessWord% !
  106.  /display $channel *******GAME OVER*******
  107.  /destroystaticvariable GuessWord
  108.  /destroystaticvariable HangTries
  109.  /_event HANGMANGAME 0 0 0 *
  110. endif
  111.